10 CLS
20 PRINT "FANTASIA AND FUGUE IN C MINOR"
30 PRINT "BY J.S. BACH"
40 PRINT "TRANSCRIPTED BY KOBI SPENCER(76576,1034)"
50 PRINT "PLEASE SEND ANY COMMENTS BY EMAIL"
60 OPTION BASE 1
65 DIM A$(21)
70 DIM B$(21)
75 DIM C$(21)
80 SOUND ON
90 PLAY "MLv15T80","MLv14T80","MNv15T80"
100 A$(1)="o2l6p6p6go3el12p12dl6ecl3fl12fl24edl12eagal6dl3gl12gl24fel12fco2bo3f"
110 B$(1)="o2l6p6p6p6p6p6cal12p12gl6ago3l3cl12cl24o2bal12bo3edel6o2al3o3d"
120 C$(1)="o1l1ccc"
130 A$(2)="o3l12fel3al12al24gfl12edegl6bl12agl6fl2o4c"
140 B$(2)="o3l12dl6co2l12bo3cdo2l3bl6bo3l12dcl3cl12cdefge"
150 C$(2)="o1l1cc"
160 A$(3)="o4l6cl12p12co3bo4co3l6bl12o4co3bagfl3gl6fp6e"
170 B$(3)="o3l12fcl3fl12fl24edl3el12el24dcbcbcl6dl12dl24cbl6cl12db"
180 C$(3)="o1l1cl2cl3cl6o2c"
190 A$(4)="o3l6el12p12l24fedel12fl6fl3el6dl24dfedgfdel3cl6f"
200 B$(4)="o3l2cl12co2bo3l6cl12p12o2bl6al3gl24gbagl6ff"
210 C$(4)="o2l6al12p12gl6agl3o3cl6co2l3gl6gl3f"
220 A$(5)="o3l12fl24edl3el6el12p12cedo2l2bbl12go3gffefo2fo3feed"
230 B$(5)="o2l3gl24p24bp24al12gfl3fl2ggl1p1"
240 C$(5)="o2l1gl12go1go2gffefo1go2feedl3el6al3dl6g"
250 A$(6)="o3l6el3al6al3gl12gffeedl6eo2ao3d"
260 B$(6)="o2l12p12co3co2bbabo1bo2baagl6adgl12go3cco2bba"
270 C$(6)="o2l3cl6fdecfo1l3bo2l6co2l3f"
280 A$(7)="o3l6dl3el6el3dl24dco2bo3dl3cl24ccdel6fl24ffed"
290 B$(7)="o2l6bl12p12aagl6al12p12ggfl6gl24gbagl12fgl6al24aagfl6g"
300 C$(7)="o1l3go2l6co1l3fl6beo2l3el6edg"
310 A$(8)="o3l2el12edl3dl12dcco2bl6o3cl12ceeddc"
320 B$(8)="o2l12gl24abl12aggfl6fl12go3co2bal6gfl12p12gl6afp6"
330 C$(8)="o2l3cl6co1l2bl6bagfdf"
340 A$(9)="o2l6bl24babo3cl12dgl24gfedl6cl24cco2bal6go3fgl12gl24p24o4cl6gl12fl24p24g"
350 B$(9)="o2l24p24defl3gl6al24abagl6fgao3dedc"
360 C$(9)="o1l6go2eo1bo2cdo1dl3el6dcl3d"
370 A$(10)="o3l3gl6p6p6p6p6el12p12dl6edl3gl12gl24fel12fbabl6el3a"
380 B$(10)="o2l3bl6p6p6p6gl1p1l2p2l6p6p6d"
390 C$(10)="o1l1ggg"
400 A$(11)="o3l12al6gl12fgal3fl6fl12agl3gl12gl24abl12o4co3bab"
410 B$(11)="o2l6bl12p12al6bao3l3dl12dl24co2bo3l12cfefl6o2bo3l3f"
420 C$(11)="o1l1gg"
430 A$(12)="o4l12co3go4l3cl12co3l24bal3bl12bl24agfgfgl6al12al24gfl6gl24p24f"
440 B$(12)="o3l12fl24edl12eo2bao3eel24dcl12do2ago3ddl24co2bo3l12co2gfo3co2babo3cl5d"
450 C$(12)="o1l1gl3gl2gl6g"
460 A$(13)="o3l3gl12gel6gl12p12o2bo3edco2bo3l3dl24dfedl3c"
470 B$(13)="o3l12do2gl6o3cl12o2gl6al12p12dl6gl12o3fo2l6al3al6bl24bbagfgfg"
480 C$(13)="o2l6el12p12dl6edl3gl6gl3fl6fl3e"
490 A$(14)="o3l6dl12dl24efgabagefdl3cdl6p6l2p2"
500 B$(14)="o2l6fl3gl6gl3el12al24bo3cl12o2baagl2a"
510 C$(14)="o2l1dl6dl3gl6gl3f"
520 A$(15)="o3l12p12go2gaabao3fo2abbo3cl24co2bagl12o3eddcdl24efl3d"
530 B$(15)="o2l12agl6fdgefdp6gal3gl6gl12gffefdfeed"
540 C$(15)="o2l2ggl12go1go2gffefo1go2feedl3el6al3dl6g"
550 A$(16)="o3l2cl12co2fl3bl6bl12abbo3cl6o2fl3b"
560 B$(16)="o2l6eefl12fdo1bo2ccdco3co2cddedbdeef"
570 C$(16)="o2l6co1babagl2al3al6gl2fl6fl3e"
580 A$(17)="o2l6gfo3ffl3el2fffl12fo2fo3feed"
590 B$(17)="o2l12cco3co2bbabbaagl6aabl12bl24agl12abbo3co2fbbaagl6al3g"
600 C$(17)="o1l6fl2p2l3p3l12p12fo2feedeo1fo2eddcl3dl6co1l3bl6g"
610 A$(18)="o3l6el12p12ddcl6dl12p12cco2bl6o3cl24cedco2bagfefefgabo3cdo2bl12o3c"
620 B$(18)="o2l12gco3co2bbabbbaagl6al12p12o1bo2cddcl6el12p12e"
630 C$(18)="o2l3cl6fo1l3bo2l6el2o1al6ago2c"
640 A$(19)="o3l24cdl12edcco2bl6bo3l24co2gabo3cdecl2fl24fgl12aaggf"
650 B$(19)="o2l12fgfeedl6dl12p12cegafl6bl12p12o3cl6do2bo3d"
660 C$(19)="o1l6fo2l3fl6fl3el6edco1bab"
670 A$(20)="o3l2el12eddl6cl12o2bo3l2cl24co2bo3co2al12o3cl6o2bl12o3c"
680 B$(20)="o3l12do2go3co2bo3co2gl6al3gl12gffeedl6dl12del6f"
690 C$(20)="o2l6caefgo1gl3al6gfl3g"
700 A$(21)="o3l6cl24co2bo3cdefgal6dl3gl24gfedco2bo3cfedecl2o2b"
710 B$(21)="o2l12fel3al6al12p12o3do2l6bl12edeeffl2g"
720 C$(21)="o1l3co2l6cco1l3bl6bl3al2g"
1000 FOR N=1 TO 21
1010 PLAY A$(N),B$(N),C$(N)
1020 NEXT
1030 END
